home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / MacOberon241.cpt / MacOberon 2.4(1) / MacDesk.Mod (.txt) < prev    next >
Oberon Text  |  1991-10-17  |  848b  |  20 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacDesk;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3.     IMPORT
  4.         TY:= MacTypes, EM:= MacEvents, WM:= MacWindows;
  5.     CONST
  6.         (* Events *)
  7.             accEvent = 64;    accRun = 65;    accCursor = 66;    accMenu = 67;
  8.             accUndo = 68;    accCut = 70;    accCopy = 71;    accPaste = 72;
  9.             accClear = 73;
  10.         (* Goodbye message *)
  11.             goodbye = -1;
  12.     PROCEDURE - OpenDeskAcc*(theAcc: TY.Str255): INTEGER 0A9H, 0B6H;
  13.     PROCEDURE - CloseDeskAcc*(refNum: INTEGER) 0A9H, 0B7H;
  14.     PROCEDURE - SystemClick*(theEvent: EM.EventRecord; theWindow: WM.WindowPtr) 0A9H, 0B3H;
  15.     PROCEDURE - SystemEdit*(editCmd: INTEGER): BOOLEAN 0A9H, 0C2H;
  16.     PROCEDURE - SystemTask*() 0A9H, 0B4H;
  17.     PROCEDURE - SystemEvent*(theEvent: EM.EventRecord): BOOLEAN 0A9H, 0B2H;
  18.     PROCEDURE - SystemMenu*(menuResult: LONGINT) 0A9H, 0B5H;
  19. END MacDesk.
  20.